home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinMessenger 4.xpl < prev    next >
Text File  |  2002-01-10  |  2KB  |  56 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Instant Messaging\Windows Messenger\Appearance"
  5. "NAME"="Warning Message"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.02"
  8. "TEXT 1"="Message"
  9. "DESCRIPTION 1"="This configures of the warning message that appears in the message window."
  10. "DESCRIPTION 2"="The current default is set to display a warning that the user should not give out credit card numbers and passwords over Instant Messaging sessions."
  11. "DESCRIPTION 3"="If you leave this setting empty, the message does not appear."
  12. "DESCRIPTION 4"="You can set the string to any custom message that you want to display to the user."
  13. "DESCRIPTION 5"="Windows Messenger may be obtained at http://messenger.msn.com/"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="http://support.microsoft.com/support/kb/articles/Q264/4/72.ASP"
  18. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  19.  
  20.  
  21.  
  22.  
  23. sPath="HKLM\Software\Microsoft\MessengerService\"
  24. sV1="HKLM\Software\Microsoft\MessengerService\Policies\IMWarning"
  25.  
  26. Sub Plugin_Initialize 
  27.  if RegPathExists(sPath) then
  28.     s=RegReadValue(sV1)
  29.     SetUIElement 1,s
  30.  else
  31.     Disable
  32.  end if
  33. End Sub
  34.  
  35.  
  36. Sub Plugin_CheckData(ElementIndex)
  37. End Sub
  38.  
  39.  
  40.  
  41. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  s=GetUIElement(1)
  43.  if len(s)=0 then 
  44.     s=" "
  45.  end if
  46.  Call RegWriteValue(sV1,s,1)
  47.  
  48. End Sub
  49.  
  50.  
  51. Sub Plugin_Terminate 
  52. End Sub
  53.  
  54.  
  55.  
  56.